home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Toolbar.wfm < prev   
Text File  |  1997-11-20  |  3KB  |  148 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Toolbar.wfm - Mugs Sample Application
  4. //
  5. //  Dialog for customizing the Mugs application toolbars
  6. //
  7. //  Dependencies: MUGS.PRG
  8. //                MUGBARS.PRG
  9. //                
  10. //
  11. //  Visual dBASE Samples Group
  12. //
  13. //  $Revision:   1.6  $
  14. //
  15. //  Copyright (c) 1997, Borland International, Inc. 
  16. //  All rights reserved.
  17. //
  18. //---------------------------------------------------------------
  19. SET TALK OFF
  20. ** END HEADER -- do not remove this line
  21. //
  22. // Generated on 09/20/97
  23. //
  24. parameter bModal
  25. local f
  26. f = new TOOLBARForm()
  27. if (bModal)
  28.    f.mdi = false // ensure not MDI
  29.    f.readModal()
  30. else
  31.    f.open()
  32. endif
  33.  
  34. class TOOLBARForm of FORM
  35.    with (this)
  36.       scaleFontSize = 8
  37.       scaleFontBold = false
  38.       height = 6.2105
  39.       left = 40
  40.       top = 8
  41.       width = 35.8333
  42.       text = "Customize Toolbar"
  43.       readModal = class::FORM_READMODAL
  44.    endwith
  45.  
  46.  
  47.    this.CHECKLARGE = new CHECKBOX(this)
  48.    with (this.CHECKLARGE)
  49.       height = 1
  50.       left = 3
  51.       top = 1
  52.       width = 18
  53.       text = "Large Buttons"
  54.       metric = 0
  55.       colorNormal = "WindowText/BtnFace"
  56.       fontSize = 8
  57.       value = false
  58.       group = true
  59.    endwith
  60.  
  61.  
  62.    this.CHECKFLAT = new CHECKBOX(this)
  63.    with (this.CHECKFLAT)
  64.       height = 1
  65.       left = 3
  66.       top = 2.3684
  67.       width = 16
  68.       text = "Flat Buttons"
  69.       metric = 0
  70.       colorNormal = "WindowText/BtnFace"
  71.       fontSize = 8
  72.       value = true
  73.       group = true
  74.    endwith
  75.  
  76.  
  77.    this.CHECKHINTS = new CHECKBOX(this)
  78.    with (this.CHECKHINTS)
  79.       height = 1
  80.       left = 3
  81.       top = 3.7895
  82.       width = 16
  83.       text = "Show Hints"
  84.       metric = 0
  85.       colorNormal = "WindowText/BtnFace"
  86.       fontSize = 8
  87.       value = true
  88.       group = true
  89.    endwith
  90.  
  91.  
  92.    this.BUTTONOK = new PUSHBUTTON(this)
  93.    with (this.BUTTONOK)
  94.       height = 1.2105
  95.       left = 21
  96.       top = 1.4211
  97.       width = 12
  98.       text = "OK"
  99.       metric = 0
  100.       default = true
  101.       fontSize = 8
  102.       group = true
  103.    endwith
  104.  
  105.  
  106.    this.BUTTONCANCEL = new PUSHBUTTON(this)
  107.    with (this.BUTTONCANCEL)
  108.       onClick = {; this.form.close() ; this.form.release()}
  109.       height = 1.2105
  110.       left = 21
  111.       top = 3.3158
  112.       width = 12
  113.       text = "Cancel"
  114.       metric = 0
  115.       fontSize = 8
  116.       group = true
  117.    endwith
  118.  
  119.  
  120.    function BUTTONOK_onClick
  121.       local appBars
  122.       appBars = this.form.app.toolbars
  123.    
  124.       if ( ( appBars.large <> this.form.checkLarge.value ) or ;
  125.            ( appBars.hints <> this.form.checkHints.value ) or ;
  126.            ( appBars.flat  <> this.form.checkFlat.value ) )
  127.          appBars.hints = this.form.checkHints.value
  128.          appBars.large = this.form.checkLarge.value
  129.          appBars.flat  = this.form.checkFlat.value   
  130.          appBars.reset()
  131.       endif
  132.  
  133.    return ( this.form.close() )
  134.  
  135.    // {Linked Method} form.readModal
  136.    function Form_ReadModal
  137.       // Setup dependencies only when called by the the Mugs application
  138.       if ( TYPE("this.app") == "O" )
  139.          with ( this )
  140.             CHECKFLAT.value  := this.app.toolbars.flat
  141.             CHECKLARGE.value := this.app.toolbars.large   
  142.             CHECKHINTS.value := this.app.toolbars.hints
  143.             BUTTONOK.onClick := class::BUTTONOK_onClick
  144.          endwith
  145.       endif
  146.    return TOOLBARFORM::ReadModal()
  147. endclass
  148.